home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib06.dsk / NFL TEAM DATA CREATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  811b  |  23 lines
  1. 1  REM  ***************************
  2. 2  REM  *  NFL TEAM DATA CREATOR  *
  3. 3  REM  *   BY JOSEPH H. FEEHAN   *
  4. 4  REM  *   COPYRIGHT (C) 1981    *
  5. 5  REM  *   BY MICRO-SPARC INC    *
  6. 6  REM  ***************************
  7. 10 D$ =  CHR$(4)
  8. 20  DIM RANK(28,3)
  9. 30  FOR I = 1 TO 28: FOR J = 1 TO 3
  10. 35  READ W
  11. 40 RANK(I,J) = W: NEXT J,I
  12. 50  DATA  51,48,99,47,27,74,34,51,85,42,48,90
  13. 60  DATA  34,44,78,43,44,87,57,43,100,39,42,81
  14. 70  DATA  37,46,83,26,30,56,34,50,84,40,41,81
  15. 80  DATA  46,50,96,31,45,76,41,39,80,55,42,97
  16. 90  DATA  41,24,65,31,31,62,39,34,73,51,51,102
  17. 100  DATA  42,55,97,39,43,82,34,38,72,51,37,88
  18. 110  DATA  37,33,70,33,31,64,32,37,69,35,50,85
  19. 120  PRINT D$;"OPEN NFL.DATA"
  20. 130  PRINT D$;"WRITE NFL.DATA"
  21. 140  FOR I = 1 TO 28: FOR J = 1 TO 3
  22. 150  PRINT RANK(I,J): NEXT J,I
  23. 160  PRINT D$;"CLOSE NFL.DATA"